addpath C:\Users\Annika\Documents\AAMH\Data2022\
addpath C:\Users\Annika\Documents\AAMH\Results2022\


[num,txt,raw] = xlsread('Aus_PT_IP.xlsx');
Dates_Aus = num(:,1);
no_obs_Aus = length(Dates_Aus);
Aus = num(:,2:4);
xlim_L_Aus = Dates_Aus(1);
xlim_U_Aus = Dates_Aus(no_obs_Aus);

[num,txt,raw] = xlsread('Can_PT_IP.xlsx');
Dates_Can = num(:,1);
no_obs_Can = length(Dates_Can);
Can = num(:,2:4);
xlim_L_Can = Dates_Can(1);
xlim_U_Can = Dates_Can(no_obs_Can);

[num,txt,raw] = xlsread('Che_PT_IP.xlsx');
Dates_Che = num(:,1);
no_obs_Che = length(Dates_Che);
Che = num(:,2:4);
xlim_L_Che = Dates_Che(1);
xlim_U_Che = Dates_Che(no_obs_Che);

[num,txt,raw] = xlsread('Gbr_PT_IP.xlsx');
Dates_Gbr = num(:,1);
no_obs_Gbr = length(Dates_Gbr);
Gbr = num(:,2:4);
xlim_L_Gbr = Dates_Gbr(1);
xlim_U_Gbr = Dates_Gbr(no_obs_Gbr);

[num,txt,raw] = xlsread('Jap_PT_IP.xlsx');
Dates_Jap = num(:,1);
no_obs_Jap = length(Dates_Jap);
Jap = num(:,2:4);
xlim_L_Jap = Dates_Jap(1);
xlim_U_Jap = Dates_Jap(no_obs_Jap);


[num,txt,raw] = xlsread('Nzl_PT_IP.xlsx');
Dates_Nzl = num(:,1);
no_obs_Nzl = length(Dates_Nzl);
Nzl = num(:,2:4);
xlim_L_Nzl = Dates_Nzl(1);
xlim_U_Nzl = Dates_Nzl(no_obs_Nzl);
[num,txt,raw] = xlsread('Swe_PT_IP.xlsx');
Dates_Swe = num(:,1);
no_obs_Swe = length(Dates_Swe);
Swe = num(:,2:4);
xlim_L_Swe = Dates_Swe(1);
xlim_U_Swe = Dates_Swe(no_obs_Swe);
[num,txt,raw] = xlsread('Usa_PT_IP.xlsx');
Dates_Usa = num(:,1);
no_obs_Usa = length(Dates_Usa);
Usa = num(:,2:4);
xlim_L_Usa = Dates_Usa(1);
xlim_U_Usa = Dates_Usa(no_obs_Usa);

figure
set(0,'DefaultAxesColorOrder',[0 0 0],...      
    'DefaultAxesLineStyleOrder','--|-|--')
subplot(4,2,1)
plot(Dates_Aus,Aus)
xlim([xlim_L_Aus xlim_U_Aus])
title('Australia')
subplot(4,2,2)
plot(Dates_Can,Can)
xlim([xlim_L_Can xlim_U_Can])
title('Canada')

subplot(4,2,3)
plot(Dates_Jap,Jap)
xlim([xlim_L_Jap xlim_U_Jap])
ylim([0 0.4])
title('Japan')
subplot(4,2,4)
plot(Dates_Nzl,Nzl)
xlim([xlim_L_Nzl xlim_U_Nzl])

title('New Zealand')
subplot(4,2,5)
plot(Dates_Swe,Swe)
xlim([xlim_L_Swe xlim_U_Swe])
title('Sweden')
subplot(4,2,6)
plot(Dates_Che,Che)
xlim([xlim_L_Che xlim_U_Che])
ylim([0 0.4])
title('Switzerland')

subplot(4,2,7)
plot(Dates_Gbr,Gbr)
xlim([xlim_L_Gbr xlim_U_Gbr])
title('United Kingdom')
subplot(4,2,8)
plot(Dates_Usa,Usa)
xlim([xlim_L_Usa xlim_U_Usa])
title('USA')